home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD2001.psc / My Projects / HTTPServer / V2.0 / DelimitedString.cls next >
Encoding:
Visual Basic class definition  |  1999-04-29  |  1016 b   |  53 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "DelimitedString"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Option Explicit
  17.  
  18. Public Delimiter As String
  19. Private mstrString As String
  20.  
  21. Private Const DEFAULT_DELIMITER As String = vbTab
  22.  
  23. Public Sub Add(NewItem As String)
  24.  
  25.   If mstrString <> "" Then
  26.     mstrString = mstrString & Delimiter & NewItem
  27.   Else
  28.     mstrString = mstrString & NewItem
  29.   End If
  30.  
  31. End Sub
  32.  
  33. Public Sub Clear()
  34.  
  35.   mstrString = ""
  36.  
  37. End Sub
  38.  
  39. Public Property Get Value() As String
  40.  
  41.   Value = mstrString
  42.  
  43. End Property
  44.  
  45.  
  46. Private Sub Class_Initialize()
  47.  
  48.   Delimiter = DEFAULT_DELIMITER
  49.  
  50. End Sub
  51.  
  52.  
  53.